home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Tools / Development / Feelin021015 / Examples / Text.e < prev    next >
Encoding:
Text File  |  2002-10-28  |  1.4 KB  |  54 lines
  1. OPT PREPROCESS
  2.  
  3. MODULE 'feelin','libraries/feelin'
  4.  
  5. PROC main()
  6.    DEF c,w
  7.  
  8.    IF feelinbase := OpenLibrary('feelin.library',FV_VERSION)
  9.       c := ClientObject,
  10.          Child, w := WindowObject, FA_Window_Title,'Feelin : Text',
  11.             Child, HGroup,
  12.                Child, TextObject, FA_ChainToCycle,    FALSE,
  13.                                   FA_MinWidth,        30,
  14.                                   FA_Text,            {__Text},
  15.                                   FA_Text_SetMin,     FALSE,
  16.                                   FA_Text_VCenter,    TRUE,
  17.                                   FA_TextDisplay_Interline,  5,
  18.                                   End,
  19.             End,
  20.          End,
  21.       End
  22.  
  23.       IF c
  24.          F_DoA(w,FM_Notify,[FA_Window_CloseRequest,TRUE,FV_Notify_Client,2,FM_Client_ReturnID,FV_Client_Quit])
  25.          F_Set(w,FA_Window_Open,TRUE)
  26.  
  27.          F_DoA(c,FM_Client_Run,NIL)
  28.  
  29.          F_DisposeObj(c)
  30.       ENDIF
  31.  
  32.       CloseLibrary(feelinbase)
  33.    ELSE
  34.       WriteF('Unable to open feelin.library\n')
  35.    ENDIF
  36. ENDPROC
  37.  
  38. __Text:
  39.    CHAR '`c`<0>',
  40.         'Normal text\n',
  41.         '`<8>Highlighted text`<0>\n',
  42.         '`<1>C`<2>o`<3>l`<4>o`<5>r`<6>e`<7>d `<6>t`<5>e`<4>x`<3>t`<0>\n',
  43.         '`SeEmbossed text`Sn\n',
  44.         '`SgGhost text`Sn\n',
  45.         '`ShSome Light`Sn\n',
  46.         '`SsSome Shadow`Sn\n',
  47.         '`Sh`SsLight & Shadow`Sn\n',
  48.         '`Se`SsEmboss & Shadow`Sn\n',
  49.         '`iItalic`n, `bBold`n, `uUnderlined`n, Normal, `i`b`uMixed`n\n',
  50.         '`lA very, very, very long line that will be nicely truncated\n',
  51.         '`cA very, very, very long line that will be nicely truncated\n',
  52.         '`rA very, very, very long line that will be nicely truncated',
  53.         NIL
  54.